home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d2 / serlyz03.arc / SERNOT.BAS < prev   
BASIC Source File  |  1989-11-13  |  902b  |  31 lines
  1. DECLARE FUNCTION SerialInst%
  2. DECLARE FUNCTION SerialValid%
  3. DECLARE FUNCTION SerialGet% (ser$, size%)
  4. DECLARE FUNCTION SerNameGet% (RegName$)
  5.  
  6.       ' simple program to demo / test QBSerlyz:
  7.       ' 1.  compile the program ( BC sernot /o /s;)
  8.       ' 2.  LINK with SERLYZ.LIB or just SERNO.OBJ
  9.       ' 3.  Run the EXE to examine error codes
  10.       ' 4.  QBSerlyze the program with QBSERIAL or QBSERLYZ
  11.       ' 5.  Re Run to examine the returns now.
  12.       ' Feel free to tamper with the EXE to see how
  13.       ' the return catch the changes!
  14.  
  15.  
  16.       DEFINT A-Z
  17.       CLEAR
  18.       ser$ = SPACE$(15)
  19.       RegName$ = SPACE$(32)
  20.  
  21.  
  22.       PRINT " SerialInst%: "; SerialInst
  23.       PRINT "SerialValid%: "; SerialValid
  24.  
  25.       errc = SerialGet%(ser$, size%)
  26.       PRINT "  SerialGet%: "; errc; ser$; size
  27.  
  28.       errc = SerNameGet(RegName$)
  29.       PRINT "  SerNameGet: "; errc; RegName$
  30.  
  31.